<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Set ObjConn = Server.CreateObject ("ADODB.Connection") 'ObjConn.Open "loopserv" dbConnect = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("dados\loopserv.mdb") & ";" objConn.Open dbConnect SQL = "SELECT * FROM treinamento where tr_id=" & request("id") Set ObjRS = ObjConn.Execute(SQL) %>

<%=ObjRS("tr_nome")%> - <%=ObjRS("tr_data")%>

<%=ObjRS("tr_desc")%>

<% ObjConn.Close Set ObjConn = Nothing Set ObjRS = Nothing %>